set more off 
mata: mata set matafavor speed, perm

use "E:\隨身硬碟備份\E\TRY\findev_2017\Fin_Co2_pol_2020\program\n82_4y_8417_renew.dta",clear
tsset id period

***Table 3.Linear effects of bank structure***

**CO2 per capita**
*column(1). boone, CV and CO2*
xtabond2 lnav_co2pc c.fin_dev c.av_bon c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_co2pc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,  lag(1 2)) gmm(c.av_bon, lag(1 3)) ///
gmm(c.sc_right, lag(1 1)collapse) ///
gmm(c.lnav_gdp, lag(1 3)) gmm(c.lnav_gdp#c.lnav_gdp,lag(1 2)) ///
iv(ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(2). lerner, CV and CO2*
xtabond2 lnav_co2pc c.fin_dev c.av_lern c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_co2pc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,  lag(1 3)) gmm(c.av_lern, lag(1 3)) ///
gmm(c.sc_right, lag(1 2)collapse) ///
gmm(c.lnav_gdp, lag(1 2)) gmm(c.lnav_gdp#c.lnav_gdp,lag(2 3)) ///
iv(ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(3). concerntration, CV and CO2*
xtabond2 lnav_co2pc c.fin_dev c.lnav_concn c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_co2pc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,  lag(2 4)) gmm(c.lnav_concn, lag(1 1)) ///
gmm(c.sc_right, lag(1 4)collapse) ///
gmm(c.lnav_gdp, lag(1 3)orthogonal) gmm(c.lnav_gdp#c.lnav_gdp,lag(1 3)) ///
iv(ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small

**Energy use per capita**
*column(4). boone, CV and Energy use*
xtabond2 lnav_engpc  c.fin_dev c.av_bon c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_engpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,  lag(1 4))                   gmm(c.av_bon, lag(1 4)) ///
gmm(c.sc_right, lag(2 2)) ///
gmm(c.lnav_gdp, lag(3 3))                   gmm(c.lnav_gdp#c.lnav_gdp,lag(1 1)) ///
iv(ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(5). lerner, CV and Energy use*
xtabond2 lnav_engpc c.fin_dev c.av_lern c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_engpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,   lag(1 3) )                gmm(c.av_lern, lag(1 2) )   ///
gmm(c.sc_right,  lag(1 3) ) ///
gmm(c.lnav_gdp,  lag(3 3))                 gmm(c.lnav_gdp#c.lnav_gdp,  lag(1 3) ) ///  
iv(ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(6). concerntration, CV and Energy use*
xtabond2 lnav_engpc c.fin_dev c.lnav_concn  c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_engpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,    lag(1 1))                 gmm(c.lnav_concn,   lag(3 3) )      ///
gmm(c.sc_right,   lag(1 4) ) ///
gmm(c.lnav_gdp,   lag(2 2))                 gmm(c.lnav_gdp#c.lnav_gdp,  lag(1 3) ) ///  
iv(ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small

**Green technology per capita: findev(+)顯著**
*column(7). boone, CV and Green technology*
xtabond2 lnav_techpc c.fin_dev c.av_bon  c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,    lag(1 3)collapse) ///
gmm(c.av_bon,     lag(2 3))   ///
gmm(c.sc_right,   lag(2 2)collapse) ///
gmm(c.lnav_gdp,   lag(2 2))              gmm(c.lnav_gdp#c.lnav_gdp,lag(1 2) ) ///  
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0)  ///
twostep small
*column(8). lerner, CV and Green technology*
xtabond2 lnav_techpc c.fin_dev c.av_lern c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,  lag(2 2))          ///
gmm(c.av_lern,  lag(2 3)collapse)          ///
gmm(c.sc_right, lag(1 2))       ///
gmm(c.lnav_gdp, lag(2 2)) gmm(c.lnav_gdp#c.lnav_gdp,lag(1 3)) ///
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(9). concerntration, CV and Green technology*
*findev(+)顯著*
xtabond2 lnav_techpc c.fin_dev c.lnav_concn c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,    lag(1 2))        ///
gmm(c.lnav_concn, lag(1 3))        ///
gmm(c.sc_right,   lag(2 4)orthogonal)      ///
gmm(c.lnav_gdp,   lag(2 2))      gmm(c.lnav_gdp#c.lnav_gdp,lag(1 2)) ///
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small


**Green technology per capita: findev不顯著**
use "E:\隨身硬碟備份\E\TRY\findev_2017\Fin_Co2_pol_2020\program\Table3\n82_4y_8417_renew_g1.dta",clear
tsset id period

*column(7). boone, CV and Green technology*
xtabond2 lnav_techpc c.fin_dev c.av_bon c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,  lag(1 1))  ///
gmm(c.av_bon,   lag(2 3)collapse) ///
gmm(c.sc_right, lag(2 2)orthogonal) ///
gmm(c.lnav_gdp, lag(2 2)) gmm(c.lnav_gdp#c.lnav_gdp,lag(1 3)) ///
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0 l2.ln_urb0 l2.ln_trad0 l2.ln_sec0 period ) ///
twostep small
*column(8). lerner, CV and Green technology*
xtabond2 lnav_techpc c.fin_dev c.av_lern c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.fin_dev,  lag(1 2))          ///
gmm(c.av_lern,  lag(2 3)collapse)          ///
gmm(c.sc_right, lag(1 1))       ///
gmm(c.lnav_gdp, lag(2 2)) gmm(c.lnav_gdp#c.lnav_gdp,lag(1 3)) ///
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0 l2.ln_urb0) ///
twostep small
*column(9). concerntration, CV and Green technology*
xtabond2 lnav_techpc c.fin_dev c.lnav_concn c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0 , ///
gmm(c.fin_dev,    lag(1 2))        ///
gmm(c.lnav_concn, lag(2 2))        ///
gmm(c.sc_right,   lag(2 2)collapse)      ///
gmm(c.lnav_gdp,   lag(2 2))      gmm(c.lnav_gdp#c.lnav_gdp,lag(1 3)) ///
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0 l2.ln_urb0 l2.ln_sec0 period) ///
twostep small


log close
clear
